home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assemblers / cas.lha / cas.c next >
Encoding:
C/C++ Source or Header  |  1993-07-14  |  2.3 KB  |  77 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include <string.h>
  4. #include <stdlib.h>
  5.  
  6. #include "io.h"
  7. #include "op.h"
  8. #include "st.h"
  9. #include "link.h"
  10.  
  11. main(int AC, char **AV) {
  12.    int A; char **AP, *Hex; byte DoHex = 0, DoLink = 1;
  13.    if (AC < 2) {
  14.       fprintf(stderr, "Use: %s -c File... to assemble\n", AV[0]);
  15.       fprintf(stderr, "Use: %s [-o Output] File... to link\n", AV[0]);
  16.       exit(1);
  17.    }
  18.    if (AV[1][0] == '-') {
  19.       if (strcmp(AV[1], "-c") == 0) {
  20.          if (AC < 3)
  21.             fprintf(stderr, "Use: %s -c File ... to assemble\n", AV[0]),
  22.             exit(1);
  23.          DoLink = 0, Fs = AC - 2, AP = AV + 2;
  24.       } else if (strcmp(AV[1], "-o") == 0) {
  25.          if (AC < 4)
  26.             fprintf(stderr, "Use: %s -o Output File... to link\n", AV[0]),
  27.             exit(1);
  28.          DoHex = 1, Hex = CopyS(AV[2]), Fs = AC - 3, AP = AV + 3;
  29.       } else
  30.          fprintf(stderr, "Invalid option: %s\n", AV[1]), exit(1);
  31.    } else Fs = AC - 1, AP = AV + 1;
  32.    if (DoLink) FTab = (FileBuf)Allocate(Fs * sizeof *FTab); else FTab = 0;
  33.    OpInit();
  34.    for (A = 0; A < Fs; A++) {
  35.       char *S, *Src, *Obj, Ch;
  36.       Src = AP[A];
  37.       for (S = Src + strlen(Src) - 1; S > Src; S--)
  38.          if (*S == '.') break;
  39.       if (strcmp(S, ".o") == 0) Obj = CopyS(Src), Src = 0;
  40.       else {
  41.          if (S > Src) Ch = *S, *S = '\0';
  42.          Obj = (char *)Allocate(strlen(Src) + 3);
  43.          sprintf(Obj, "%s.o", Src);
  44.          if (S > Src) *S = Ch;
  45.       }
  46.       if (DoLink) FTab[A].Name = Obj;
  47.       if (Src != 0) {
  48.          fprintf(stderr, "assembling %s -> %s\n", Src, Obj);
  49.          OutF = OpenObj(Obj);
  50.          if (OutF == 0)
  51.             fprintf(stderr, "Cannot open object file for %s.\n", Src), exit(1);
  52.          Assemble(Src), Generate();
  53.       }
  54.    }
  55.    CHECK();
  56.    if (DoLink) {
  57.       if (!DoHex) {
  58.          char *S, *Obj = FTab[0].Name, Ch;
  59.  
  60. /*         word L = strlen(Obj) + 3;         No reference to 'L' : caro */
  61.  
  62.          for (S = Obj + strlen(Obj) - 1; S > Obj; S--)
  63.             if (*S == '.') break;
  64.          if (S > Obj) Ch = *S, *S = '\0';
  65.          Hex = (char *)Allocate(strlen(Obj) + 5);
  66.          sprintf(Hex, "%s.hex", Obj);
  67.          if (S > Obj) *S = Ch;
  68.       }
  69.       fprintf(stderr, "linking");
  70.       for (A = 0; A < Fs; A++)
  71.          fputc(' ', stderr), fprintf(stderr, FTab[A].Name);
  72.       fprintf(stderr, " -> %s\n", Hex);
  73.       Link(Hex);
  74.    }
  75.    exit(0);
  76. }
  77.